home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
stos
/
stos_34
/
multimat
/
multimat.bas
(
.txt
)
Wrap
Atari STOS Basic
|
1987-04-21
|
79KB
|
188 lines
10 REM Multimat Program
100 GOSUB
1000 ANIM
1010 ANIM
1020 FLASH
1030 RETURN
1040 REM -----------------------RESET MAIN SCREEN----------------------------
1050 COLOUR
1060 SCREEN COPY
1070 SCREEN COPY
1080 RETURN
1090 REM ----------------------END OF TEST MESSAGE---------------------------
110 GOSUB
1100 HIDE
1110 LOCATE
1120 LOCATE
1130 LOCATE
1140 REPEAT
1150 UNTIL
1160 RETURN
1170 REM ------------------------OPTION SCREEN------------------------------
1180 MODE
1190 GET PALETTE
120 REM -------------------------MAIN ROUTINE----------------------------------
1200 SCREEN COPY
1210 SCREEN COPY
1220 VARNAME
1230 GOSUB
1240 PEN
1250 REPEAT
1260 VARNAME
1270 UNTIL
1280 VARNAME
1290 IF
130 MODE
1300 IF
1310 IF
1320 IF
1330 IF
1340 IF
1350 LOCATE
1360 LOCATE
1370 LOCATE
1380 LOCATE
1390 LOCATE
140 WINDOPEN
1400 WAIT
1410 IF
1420 IF
1430 IF
1440 IF
1450 MUSIC
1460 RETURN
1470 REM -------------------SET ZONES FOR OPTION SCREEN-----------------------
1480 LIMIT MOUSE
1490 SET ZONE
150 CURS
1500 SET ZONE
1510 SET ZONE
1520 SET ZONE
1530 SET ZONE
1540 SET ZONE
1550 SET ZONE
1560 SET ZONE
1570 SET ZONE
1580 SET ZONE
1590 SET ZONE
160 GET PALETTE
1600 SET ZONE
1610 SET ZONE
1620 SET ZONE
1630 SET ZONE
1640 SET ZONE
1650 SET ZONE
1660 CHANGE MOUSE
1670 RETURN
1680 REM -------------------------RANDOM ORDER-------------------------------
1690 DIM
170 GOSUB
1700 FOR
1710 REPEAT
1720 VARNAME
1730 UNTIL
1740 VARNAME
1750 NEXT
1760 RETURN
1770 REM --------------------INITIALISE ARRAY & VARIABLES--------------------
1780 DIM
1790 FOR
180 SPRITE
1800 VARNAME
1810 NEXT
1820 FOR
1830 VARNAME
1840 NEXT
1850 FOR
1860 VARNAME
1870 VARNAME
1880 NEXT
1890 VARNAME
190 SPRITE
1900 RETURN
20 REM by Jim Flewker August 1989
200 ANIM
210 ANIM
220 ANIM
230 IF
240 PAPER
250 PEN
260 VARNAME
270 REPEAT
280 GOSUB
290 UNTIL
30 REM Version for New Atari User
300 IF
310 GOSUB
320 FLASH
330 IF
340 MUSIC
350 FADE
360 REM --------------READ SCREEN KEYPAD & DISPLAY USER INPUT------------------
370 VARNAME
380 REPEAT
390 REPEAT
400 VARNAME
410 UNTIL
420 IF
430 VARNAME
440 IF
450 IF
460 IF
470 IF
480 LOCATE
490 VARNAME
500 UNTIL
510 RETURN
520 REM -----------------SET ZONES FOR SCREEN KEYPAD--------------------------
530 SET ZONE
540 SET ZONE
550 SET ZONE
560 SET ZONE
570 SET ZONE
580 SET ZONE
590 SET ZONE
60 REM ------------------------------------------------------------------------
600 SET ZONE
610 SET ZONE
620 SET ZONE
630 SET ZONE
640 SET ZONE
650 LIMIT MOUSE
660 CHANGE MOUSE
670 RETURN
680 REM ----------POSE A QUESTION, TEST ANSWER, CLEAR NUMBER BOXES------------
690 IF
70 KEY
700 INC
710 IF
720 VARNAME
730 LOCATE
740 LOCATE
750 IF
760 IF
770 LOCATE
780 LOCATE
790 LOCATE
80 KEY SPEED
800 RETURN
810 REM ----------------ANSWER RIGHT ('LED' LIGHTS UP)-------------------------
820 INC
830 VARNAME
840 INK
850 BAR
860 VOLUME
870 FOR
880 IF
890 RETURN
900 REM -------------------------ANSWER WRONG--------------------------------
910 BELL
920 LOCATE
930 PRINT
940 WAIT
950 BELL
960 WAIT
970 RETURN
980 REM ----------------------ALL 12 ANSWERS RIGHT---------------------------
990 ANIM